home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / background_13187.txt < prev    next >
Text File  |  1991-04-30  |  9KB  |  430 lines
  1. -- background: 13187 from stack: in.3r
  2. -- bmap block id: 4585
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Scripts
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  9.   set scroll of field description to 0
  10.   put "Scripts" into field "type"
  11. end opencard
  12.  
  13.  
  14.  
  15. -- part 2 (field)
  16. -- low flags: 01
  17. -- high flags: 0004
  18. -- rect: left=2 top=3 right=36 bottom=313
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 2
  23. -- text size: 24
  24. -- style flags: 0
  25. -- line height: 32
  26. -- part name: Name
  27.  
  28.  
  29. -- part 3 (field)
  30. -- low flags: 00
  31. -- high flags: 4007
  32. -- rect: left=59 top=46 right=259 bottom=508
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 3
  37. -- text size: 9
  38. -- style flags: 0
  39. -- line height: 12
  40. -- part name: description
  41.  
  42.  
  43. -- part 4 (field)
  44. -- low flags: 01
  45. -- high flags: 0002
  46. -- rect: left=462 top=13 right=30 bottom=489
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 3
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: PageNumber
  55.  
  56.  
  57. -- part 18 (field)
  58. -- low flags: 01
  59. -- high flags: 0004
  60. -- rect: left=310 top=3 right=36 bottom=439
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 65535
  64. -- font id: 3
  65. -- text size: 24
  66. -- style flags: 0
  67. -- line height: 32
  68. -- part name: type
  69.  
  70.  
  71. -- part 26 (button)
  72. -- low flags: 00
  73. -- high flags: 2004
  74. -- rect: left=3 top=47 right=90 bottom=50
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 11645 / 11645
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Return
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   if the optionkey is down then pass mouseup
  86.   visual effect iris close
  87.   go first card
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 27 (button)
  93. -- low flags: 00
  94. -- high flags: 2004
  95. -- rect: left=3 top=88 right=131 bottom=50
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 14767 / 14767
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: About...
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   if the optionkey is down then pass mouseup
  107.  
  108.   visual iris open to gray
  109.   visual iris close to black
  110.   visual iris open to gray
  111.   visual iris close
  112.   go background information
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 28 (button)
  118. -- low flags: 00
  119. -- high flags: 2004
  120. -- rect: left=3 top=129 right=172 bottom=50
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 29114 / 29114
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Back
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   if the optionkey is down then pass mouseup
  132.  
  133.   visual barn door close to black
  134.   visual barn door open
  135.   pop card
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 29 (button)
  141. -- low flags: 00
  142. -- high flags: 2004
  143. -- rect: left=3 top=170 right=213 bottom=50
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 1011 / 1011
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Home
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   if the optionkey is down then pass mouseup
  155.   visual dissolve to black
  156.   visual dissolve
  157.   go first card of home
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 30 (button)
  163. -- low flags: 00
  164. -- high flags: 2004
  165. -- rect: left=3 top=211 right=254 bottom=50
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 1000 / 1000
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: Open Stack
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   if the optionkey is down then pass mouseup
  177.   put "Please select a stack to open..."
  178.   domenu "open stack..."
  179.   hide message
  180. end mouseUp
  181.  
  182.  
  183.  
  184. -- part 31 (button)
  185. -- low flags: 00
  186. -- high flags: 2004
  187. -- rect: left=3 top=252 right=295 bottom=50
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 17343 / 17343
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: Launch Application
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   if the optionkey is down then pass mouseup
  199.   visual venetian blinds to gray
  200.   visual venetian blinds to black
  201.   visual venetian blinds to gray
  202.   visual venetian blinds
  203.   go to background "Mini Hyperstation"
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 32 (button)
  209. -- low flags: 00
  210. -- high flags: 2004
  211. -- rect: left=3 top=293 right=336 bottom=50
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 21786 / 21786
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: Menus Off
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   if the optionkey is down then pass mouseup
  223.  
  224.   if menubar("┬⌐1988SDrazga") then hide menubar else show menubar
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 33 (button)
  230. -- low flags: 00
  231. -- high flags: A004
  232. -- rect: left=61 top=292 right=341 bottom=119
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 2 / 2
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: XFCNs...
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   if the optionkey is down then pass mouseup
  244.  
  245.   controlButton "XFCNs"
  246.  
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 34 (button)
  252. -- low flags: 00
  253. -- high flags: A004
  254. -- rect: left=124 top=292 right=341 bottom=182
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 2 / 2
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: XCMDS...
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   if the optionkey is down then pass mouseup
  266.  
  267.   controlButton "XCMDs"
  268.  
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part 35 (button)
  274. -- low flags: 00
  275. -- high flags: A004
  276. -- rect: left=188 top=292 right=341 bottom=246
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 29007 / 29007
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Functions...
  285. ----- HyperTalk script -----
  286. on mouseUp
  287.   if the optionkey is down then pass mouseup
  288.  
  289.   controlButton "Functions"
  290.  
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 36 (button)
  296. -- low flags: 00
  297. -- high flags: A004
  298. -- rect: left=252 top=292 right=341 bottom=310
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 1060 / 1060
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: Scripts...
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   if the optionkey is down then pass mouseup
  310.  
  311.   controlButton "Scripts"
  312.  
  313. end mouseUp
  314.  
  315.  
  316.  
  317. -- part 37 (button)
  318. -- low flags: 00
  319. -- high flags: A004
  320. -- rect: left=317 top=292 right=341 bottom=375
  321. -- title width / last selected line: 0
  322. -- icon id / first selected line: 27056 / 27056
  323. -- text alignment: 1
  324. -- font id: 0
  325. -- text size: 12
  326. -- style flags: 0
  327. -- line height: 16
  328. -- part name: Buttons...
  329. ----- HyperTalk script -----
  330. on mouseUp
  331.   if the optionkey is down then pass mouseup
  332.   controlButton "Buttons"
  333. end mouseUp
  334.  
  335.  
  336.  
  337. -- part 38 (button)
  338. -- low flags: 00
  339. -- high flags: A004
  340. -- rect: left=381 top=292 right=341 bottom=439
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 22999 / 22999
  343. -- text alignment: 1
  344. -- font id: 0
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: Quick Ref...
  349. ----- HyperTalk script -----
  350. on mouseUp
  351.   if the optionkey is down then pass mouseup
  352.   controlButton "Quick Ref"
  353. end mouseUp
  354.  
  355.  
  356.  
  357. -- part 39 (button)
  358. -- low flags: 00
  359. -- high flags: A004
  360. -- rect: left=446 top=292 right=341 bottom=504
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 11645 / 11645
  363. -- text alignment: 1
  364. -- font id: 0
  365. -- text size: 12
  366. -- style flags: 0
  367. -- line height: 16
  368. -- part name: Full Index...
  369. ----- HyperTalk script -----
  370. on mouseUp
  371.   if the optionkey is down then pass mouseup
  372.   controlbutton index
  373. end mouseUp
  374.  
  375.  
  376.  
  377.  
  378. -- part 40 (button)
  379. -- low flags: 00
  380. -- high flags: 2000
  381. -- rect: left=437 top=11 right=33 bottom=459
  382. -- title width / last selected line: 0
  383. -- icon id / first selected line: 1014 / 1014
  384. -- text alignment: 1
  385. -- font id: 0
  386. -- text size: 12
  387. -- style flags: 0
  388. -- line height: 16
  389. -- part name: Prev
  390. ----- HyperTalk script -----
  391. on mousestilldown
  392.   global scrolling
  393.   put true into scrolling
  394.   goPrev
  395. end mousestilldown
  396.  
  397. on mouseup
  398.   global scrolling
  399.   if not scrolling then goPrev
  400.   put false into scrolling
  401. end mouseup
  402.  
  403.  
  404.  
  405. -- part 41 (button)
  406. -- low flags: 00
  407. -- high flags: 2000
  408. -- rect: left=488 top=11 right=33 bottom=510
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 1013 / 1013
  411. -- text alignment: 1
  412. -- font id: 0
  413. -- text size: 12
  414. -- style flags: 0
  415. -- line height: 16
  416. -- part name: Next
  417. ----- HyperTalk script -----
  418. on mousestilldown
  419.   global scrolling
  420.   put true into scrolling
  421.   goNext
  422. end mousestilldown
  423.  
  424. on mouseup
  425.   global scrolling
  426.   if not scrolling then goNext
  427.   put false into scrolling
  428. end mouseup
  429.  
  430.